home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 2 / 002.d81 / middle earth (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  6.6 KB  |  190 lines
  1. 10 rem middle earth quiz by henry newcomb
  2. 20 rem translated for the commodore 64 by donna k. woody
  3. 30 :
  4. 40 poke53272,23: rem selects upper/lower case
  5. 50 printchr$(8): rem disables c/shift keys
  6. 60 poke53280,14 :rem set border color to light blue
  7. 70 poke53281,5 :rem set background color to green
  8. 80 printchr$(5):rem set character color to white
  9. 97 :
  10. 98 rem initialize variables
  11. 99 :
  12. 100 flag=0:q=32:x=q
  13. 110 dim q$(q),a$(x),b$(x),c$(x),d$(x),ra$(x)
  14. 127 :
  15. 128 rem read data statements
  16. 129 :
  17. 130 forcnt=1toq:readq$(cnt):reada$(cnt):readb$(cnt):readc$(cnt):readd$(cnt)
  18. 140 readra$(cnt):nextcnt
  19. 150 forx=1to6:readquiz$(x):next
  20. 167 :
  21. 168 rem title page
  22. 169 :
  23. 170 gosub5000
  24. 197 :
  25. 198 rem print questions
  26. 199 :
  27. 200 rt=0:wr=0:forcnt=1toq
  28. 205 printchr$(147)
  29. 210 printtab(13)"[205][201][196][196][204][197] [197][193][210][212][200] [209][213][201][218]"
  30. 220 print"[209][213][197][211][212][201][207][206][160]# ";cnt
  31. 230 print"";q$(cnt);" ?"
  32. 240 print"[193]. ";a$(cnt)
  33. 245 print
  34. 250 print"[194]. ";b$(cnt)
  35. 255 print
  36. 260 print"[195]. ";c$(cnt)
  37. 265 print
  38. 270 print"[196]. ";d$(cnt)
  39. 272 print
  40. 275 print"[216]. [197]xits [208]rogram"
  41. 280 print"[197]nter [[193]] [[194]] [[195]] [[196]] [[216]]  ";
  42. 290 poke204,0:poke207,0:getm$:ifm$=""then290
  43. 291 poke 204,1 :print
  44. 300 ifm$="a"orm$="b"orm$="c"orm$="d"then400
  45. 335 ifm$="x"then 700
  46. 340 print"[211]orry. [217]ou must enter [193], [194], [195], ,[196] or [216].[145][145][145][145][145]":goto280
  47. 397 :
  48. 398 rem keep score
  49. 399 :
  50. 400 ifm$=ra$(cnt)thenrt=rt+1:goto 450
  51. 410 wr=wr+1:printtab(26)"[145][215]rong!!"
  52. 415 printra$(cnt)" is the correct answer."
  53. 420 print"[208]ress space bar to continue.";
  54. 430 poke204,0:poke207,0:getz$:ifz$=""then430
  55. 440 poke204,1
  56. 450 nextcnt
  57. 497 :
  58. 498 rem final report
  59. 499 :
  60. 500 printchr$(147)
  61. 510 printtab(13)"[205][201][196][196][204][197] [197][193][210][212][200] [209][213][201][218]"
  62. 520 print"[217]ou got ";rt;" questions right."
  63. 530 print"[217]ou got ";wr;" questions wrong."
  64. 540 ifwr=0thenflag=1:goto 600
  65. 550 ifwr>0andwr<4thenflag=2:goto 600
  66. 560 ifwr>3andwr<13thenflag=3:goto 600
  67. 570 ifwr>12andwr<21thenflag=4:goto 600
  68. 580 ifwr>20andwr<26thenflag=5:goto 600
  69. 590 ifwr>25thenflag=6
  70. 600 print"";quiz$(flag)
  71. 610 print"[215]ould you like to try again (y/n)?";
  72. 620 poke204,0:poke207,0:getz$:ifz$=""then620
  73. 630 poke204,1
  74. 640 ifz$="y"then 200
  75. 650 ifz$="n"then 700
  76. 697 :
  77. 698 rem end routine
  78. 699 :
  79. 700 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  80. 705 poke631,13:poke632,13:poke198,2:end
  81. 997 :
  82. 998 rem data statements
  83. 999 :
  84. 1000 data"[201]n what land is [205]t. [196]oom located","[199]ondor","[205]ordor","[210]ohan","[197]riador"
  85. 1010 data"b"
  86. 1020 data"[215]here are the mines of [205]oria located","[205]ordor","[205]isty [205]ountains"
  87. 1030 data"[205]ts. of [211]hadow","[201]ron [200]ills","b"
  88. 1040 data"[215]here is [196]ol [193]mroth located","[215]est of [199]ondor","[212]he [205]isty [205]ountains"
  89. 1050 data"[212]he [194]ay of [194]elfalas","[206]orthern [215]aste","c"
  90. 1060 data"[201]n what land is [200]elms [196]eep located","[199]ondor","[212]he [211]hire","[205]ordor"
  91. 1070 data"[210]ohan","d"
  92. 1080 data"[193]long what road does [201]sengard lie","[207]ld [211]outh [210]oad","[212]he [199]reenway"
  93. 1090 data"[207]ld [198]orest [210]oad","[199]reat [197]ast [210]oad",a
  94. 1100 data"[201]n what land is the [211]hire located","[210]hovanion","[197]riador","[199]ondor"
  95. 1110 data"[210]hun",b
  96. 1120 data"[215]hat are the seeing stones of [206]umenor","[197]ye glasses","[208]alantirs"
  97. 1130 data"[205]irrors","[215]indows",b
  98. 1140 data"[215]ho is the [199]rey [208]ilgrim","[194]ilbo","[193]ragorn","[199]andalf","[194]oromir",c
  99. 1150 data"[215]ho was [198]aramir","[194]oromir's brother","[207]ne of the [200]obbits"
  100. 1160 data"[212]he elf king","[212]he name of the [194]lack [195]aptain",a
  101. 1170 data"[215]hat are oliphaunts","[207]rc for [200]obbit","[197]lephants","[193]n [207]rc clan"
  102. 1180 data"[199]oblins",b
  103. 1190 data"[215]hat was the special mark that [194]oromir  carried with him","[193] ring"
  104. 1200 data"[193] sword","[193] horn","[193]n amulet",c
  105. 1210 data"[215]ho stood guard over [211]aruman at         [207]rthanc","[212]he [197]nts","[207]rcs"
  106. 1220 data"[199]andalf","[197]lves",a
  107. 1230 data"[215]ho rode with [199]andalf on [211]hadowfax to   [205]inas [212]irith","[205]erry"
  108. 1240 data"[198]rodo","[208]ippin","[211]am",c
  109. 1250 data"[215]hich three of the [199]rey [195]ompany tracked [211]aruman's orcs into [210]ohan"
  110. 1260 data"[193]ragorn - [194]oromir - [198]rodo","[205]erry - [208]ippin - [199]andalf"
  111. 1270 data"[193]ragorn - [204]egolas - [199]imli","[199]imli - [198]rodo - [211]am",c
  112. 1280 data"[215]ho did [193]ragorn, [204]egolas, and [199]imli     meet in [210]ohan","[198]rodo"
  113. 1290 data"[212]reebeard","[205]ithrandir","[198]atty [204]umpkin",c
  114. 1300 data"[215]hat famous object was broken at the    battle of [193]rgonath"
  115. 1310 data"[193]ragorn's sword","[194]oromir's horn","[199]andalf's staff","[198]rodo's ring",b
  116. 1320 data"[215]hat was [199]andalf's real name","[193]mbrosius","[194]en","[201]nglorian","[207]lorin",d
  117. 1330 data"[200]ow many [206]azgul broke into [195]rickhollow","[212]wo","[212]hree","[198]our","[198]ive",b
  118. 1340 data"[215]ho or what according to legend was the first living thing on '[197]arth'"
  119. 1350 data"[212]om [194]ombadil","[212]he [197]nts","[212]he elves","[211]maug",a
  120. 1360 data"[215]ho became a bear at the battle of the  five armies","[193]ragorn"
  121. 1370 data"[199]imli","[194]eorn","[199]andalf",c
  122. 1380 data"[215]ho was [209]uickbeam","[193]n [197]nt","[193]n elf","[193] [200]obbit","[199]andalf",a
  123. 1390 data"[215]hat was the only harm [211]maug inflicted  on [194]ilbo"
  124. 1400 data"[193] small cut on the forehead","[193] twisted ankle"
  125. 1410 data"[194]urning the hair off his ankle","[206]one",c
  126. 1420 data"[215]ho was the last steward of [199]ondor","[194]oromir","[193]ragorn","[198]aramir"
  127. 1430 data"[196]enethor",d
  128. 1440 data"[215]ho was the last person to have the ringin his possession","[211]am"
  129. 1450 data"[198]rodo","[199]ollum","[206]one of the above",c
  130. 1460 data"[206]ame the last three ring bearers in     order","[211]am - [198]rodo - [199]ollum"
  131. 1470 data"[198]rodo - [211]am - [199]ollum","[198]rodo - [199]ollum - [198]rodo","[211]am - [199]ollum - [198]rodo"
  132. 1480 dataa
  133. 1490 data"[215]hich two famous people have nine       fingers","[211]am - [198]rodo"
  134. 1500 data"[198]rodo - [211]auron","[199]andalf - [198]rodo","[194]ilbo - [211]am",b
  135. 1510 data"[215]hat was the name of the horse that [212]om [194]ombadil rode","[211]hadowfax"
  136. 1520 data"[211]trong-bearer","[198]atty [204]umpkin","[212]rail [198]ollower",c
  137. 1530 data"[215]ho was [211]harky","[198]rodo","[199]andalf","[211]auron","[211]aruman",d
  138. 1540 data"[215]hat did [199]andalf threaten to do to      [194]arliman [194]utterbur"
  139. 1550 data"[212]urn him into a frog","[211]poil his food","[212]urn his beer sour"
  140. 1560 data"[194]urn his inn down",c
  141. 1570 data"[215]hat was [198]rodo's mistake on [215]eathertop","[200]e put the ring on"
  142. 1580 data"[200]e got lost","[200]e insulted [193]ragorn","[200]e put the fire out",a
  143. 1590 data"[215]ho helped [198]rodo reach [210]ivendell (at thevery end)","[199]andalf","[211]am"
  144. 1600 data"[193]ragorn","[199]lorfindel",d
  145. 1610 data"[215]hat or who saved [198]rodo's life in the   mines of [205]oria","[193]ragorn"
  146. 1620 data"[212]he ring","[212]he mithril coat","[199]andalf's spell",c
  147. 1630 :
  148. 1631 rem quiz$ report data
  149. 1632 :
  150. 1640 data"[215]ith a record like that you could guide [198]rodowith your eyes closed."
  151. 1650 data"[217]ou could probably guide [198]rodo and      [195]ompany through the lands."
  152. 1660 data"[217]ou could probably guide [198]rodo with the help of a map."
  153. 1670 data"[217]ou would be wise to have someone guide you through the lands."
  154. 1680 data"[215]ith a lot of luck and a map you might  make it through the lands."
  155. 1690 data"do not leave the immediate area as you  are likely to get lost."
  156. 4997 :
  157. 4998 rem title page
  158. 4999 :
  159. 5000 printchr$(147)
  160. 5005 print""
  161. 5010 printtab(11)"[205]iddle [197]arth [209]uiz"
  162. 5012 printtab(18)"by"
  163. 5014 printtab(13)"[149][200]enry [206]ewcomb"
  164. 5016 printtab(6)"[159][212]ranslated by [196]onna [203]. [215]oody"
  165. 5020 print"[201]nstructions (y/n)?";
  166. 5030 poke204,0:poke207,0:getz$:ifz$=""then5030
  167. 5040 poke204,1
  168. 5050 ifz$="y"then6000
  169. 5060 ifz$="n"then200
  170. 5070 goto5030
  171. 5080 return
  172. 5997 :
  173. 5998 rem instructions
  174. 5999 :
  175. 6000 printchr$(147)
  176. 6005 print"    [215]elcome to the [205]iddle [197]arth [209]uiz."
  177. 6010 print:print"[201]n this quiz you will be asked":print
  178. 6020 print"questions concerning the characters":print
  179. 6030 print"and geography of [205]iddle [197]arth.  [212]he":print
  180. 6040 print"questions are all multiple choice.":print
  181. 6050 print"[215]hen you are finished, you will be":print
  182. 6060 print"told how many questions you got right":print
  183. 6070 print"and how many you missed.  [212]here will":print
  184. 6080 print"also be some advice.":print
  185. 6090 printtab(13)"[199]ood [204]uck!"
  186. 6100 print"[208]ress space bar to continue.";
  187. 6110 poke204,0:poke207,0:getz$:ifz$=""then6110
  188. 6120 poke204,1:return
  189. 7000 print
  190.